home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 7 / Gekikoh Dennoh Club Vol. 7 (Japan).7z / Gekikoh Dennoh Club Vol. 7 (Japan) (Track 01).bin / ikap / graphic1 / obj_18 / demo_b4.bas < prev    next >
Encoding:
BASIC Source File  |  1999-06-15  |  1.6 KB  |  62 lines
  1. int i,j,n0,n1
  2. int px,py,pcd0,pcd1
  3. int cn=&H000
  4. char anm=0
  5. float pi_=pi()*2
  6. int set_flg=0,rdn
  7. dim int xd(255),yd(255),pcdd(255)
  8.  
  9. screen 0,3,1,1
  10. window(  0,  0,511,511)
  11. sp_init() : sp_disp(1)
  12. palfile_def("obj_18b.pal",1)
  13. spfile_def("obj_18b4.sp",0)
  14.  
  15. for i=1 to 512
  16.     pset(rand() and 511,rand() and 255,(rand() and 31)*2114)
  17. next
  18.  
  19. while inkey$(0)<>chr$(&H1B)
  20.     i=i+1 and 255
  21.     if i=0 then cn=cn+256 and 2047
  22.     px=255-i                /* x ｻﾞﾋｮｳ
  23.     n0=sin(pi_*i/128)*48            /* y ｻﾞﾋｮｳ
  24.  
  25.     xd(set_flg)=px
  26.     yd(set_flg)=n0
  27.  
  28.     v_disp()
  29.  
  30.     rdn=set_flg
  31.     sp_set(  0,xd(rdn)   ,128-yd(rdn),&H120+cn,3)
  32.     sp_set(  1,xd(rdn)+16,128-yd(rdn),&H121+cn,3)
  33.     sp_set(  2,xd(rdn)   ,144-yd(rdn),&H130+cn,3)
  34.     sp_set(  3,xd(rdn)+16,144-yd(rdn),&H131+cn,3)
  35.     rdn=set_flg-8 and 255
  36.     sp_set(  4,xd(rdn)+ 8,128-yd(rdn),&H144+cn,3)
  37.     sp_set(  5,xd(rdn)+24,128-yd(rdn),&H145+cn,3)
  38.     sp_set(  6,xd(rdn)+ 8,144-yd(rdn),&H154+cn,3)
  39.     sp_set(  7,xd(rdn)+24,144-yd(rdn),&H155+cn,3)
  40.     rdn=set_flg-16 and 255
  41.     sp_set(  8,xd(rdn)+ 8,128-yd(rdn),&H144+cn,3)
  42.     sp_set(  9,xd(rdn)+24,128-yd(rdn),&H145+cn,3)
  43.     sp_set( 10,xd(rdn)+ 8,144-yd(rdn),&H154+cn,3)
  44.     sp_set( 11,xd(rdn)+24,144-yd(rdn),&H155+cn,3)
  45.     rdn=set_flg-24 and 255
  46.     sp_set( 12,xd(rdn)+16,136-yd(rdn),&H148+cn,3)
  47.     rdn=set_flg-32 and 255
  48.     sp_set( 13,xd(rdn)+16,136-yd(rdn),&H148+cn,3)
  49.     rdn=set_flg-40 and 255
  50.     sp_set( 14,xd(rdn)+16,136-yd(rdn),&H148+cn,3)
  51.     rdn=set_flg-48 and 255
  52.     sp_set( 15,xd(rdn)+16,136-yd(rdn),&H158+cn,3)
  53.     rdn=set_flg-56 and 255
  54.     sp_set( 16,xd(rdn)+16,136-yd(rdn),&H158+cn,3)
  55.     rdn=set_flg-64 and 255
  56.     sp_set( 17,xd(rdn)+16,136-yd(rdn),&H158+cn,3)
  57.  
  58.     set_flg=set_flg+1 and 255
  59. endwhile
  60.  
  61. end
  62.